home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / giga-sedit 2.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  9KB  |  726 lines
  1. 100 ;
  2. 110 ;
  3. 120 ;
  4. 130 ;
  5. 140 ;    GIGA-ASS - SCROLLEDIT V2
  6. 150 ;= = = = = = = = = = = = = = = = =
  7. 160 ;    CODED BY CHRISTIAN THRUM
  8. 170 ;    (SKYWALKER OF SUNBEAM !)
  9. 180 ;      DONE IN 1992/1993 !!
  10. 190 ;
  11. 200 ;
  12. 210 ;             CHRISTIAN THRUM
  13. 220 ;             SOPHIENSTR. 14
  14. 230 ;             07743 JENA
  15. 240 ;             TEL: (03641)25958
  16. 250 ;
  17. 260 ;   FINALLY GIGA-ASS RULES ...
  18. 270 ;   LETS SCRATCH THE 'VIS-ASS'
  19. 280 ;         TOGETHER !!!!
  20. 290 ;        (JUST KIDDING!)
  21. 300 ;
  22. 310 ;
  23. 320 ;
  24. 330 GETPCLOSEADDY,VAL
  25. 340  MID$#VAL
  26. 350  (null)ADDY
  27. 360 NEW
  28. 370 TAB(OBJECTSTART=$7B00
  29. 380 +OBJECTSTART
  30. 390 USROBJECTSTART
  31. 400 TAB(LASTHIGH=$96
  32. 410 ;
  33. 420 ;
  34. 430 ;
  35. 440 ; INSTALL/INIT
  36. 450 ;==============================
  37. 460 ;
  38. 470 INSTALL MID$#<(FULLINIT)
  39. 480  (null)$8000
  40. 490  (null)$84D0
  41. 500  (null)$2B
  42. 510  MID$#>(FULLINIT)
  43. 520  (null)$8001
  44. 530  (null)$84D2
  45. 540  (null)$9FB8
  46. 550  (null)$82E6
  47. 560  (null)$2C
  48. 570  PEEK#<(INIT)
  49. 580  (null)$9FB7
  50. 590  (null)
  51. 600  (null)$82E5
  52. 610  PCLOSE$84AA,$60
  53. 620  (null)$8534
  54. 630 ;
  55. 640  PEEK#>(SETPGE)
  56. 650  PCLOSE$9959,<(SETPGE)
  57. 660  (null)$995A
  58. 670  PCLOSE$94D4,<(SET4)
  59. 680  (null)$971E
  60. 690  (null)$94D5
  61. 700  (null)$971F
  62. 710  PCLOSE$82C9,<(ACHECK-1)
  63. 720  (null)$82CA
  64. 730  PCLOSE$9F72,>(IRQ)
  65. 740  PCLOSE$9F75,<(IRQ)
  66. 750  PEEK#0
  67. 760  MID$INSTTEXT,X
  68. 770  (null)*+8
  69. 780  (null)$FFD2
  70. 790  (null)
  71. 800  (null)*-9
  72. 810  (null)$2D
  73. 820  (null)$33
  74. 830  PCLOSE$2E,$A0
  75. 840  PCLOSE$34,$7B
  76. 850  (null)($0302)
  77. 860 ;
  78. 870 INSTTEXT
  79. 880 NOT"[147]SAVE
  80. 890 [165]$22
  81. 900 [168]"GIGA-ASS  +SEDIT
  82. 910 FN$22
  83. 920 NOT",8"
  84. 930 ;
  85. 940 ;
  86. 950 +OBJECTSTART+$A0
  87. 960 ;
  88. 970 ;
  89. 980 FULLINIT (null)$849D
  90. 990 ;
  91. 1000 INIT (null)
  92. 1010  PEEK#1
  93. 1020  (null)IRQFLAG
  94. 1030  (null)
  95. 1040  (null)$D4
  96. 1050  PEEK#$F3
  97. 1060  (null)
  98. 1070  (null)$84AB;G-INIT!
  99. 1080  MID$#<(TEXT)
  100. 1090  LEN#>(TEXT);TEXT
  101. 1100  (null)$AB1E;OUTPUT
  102. 1110  (null)$A644;NEW
  103. 1120  (null)$94BA
  104. 1130  PCLOSE$CF,0
  105. 1140  PCLOSE$DC0D,$81
  106. 1150  MID$#%00000100
  107. 1160  (null)$028D
  108. 1170  (null)*+5
  109. 1180  (null)ALOAD
  110. 1190  (null)$8537;CONT INIT
  111. 1200 ;
  112. 1210 ;
  113. 1220 ;
  114. 1230 ; IRQ-ROUTINE + KEYCHECK
  115. 1240 ;==============================
  116. 1250 ;
  117. 1260 IRQ PCLOSE$DC0D,1
  118. 1270  MID$IRQFLAG
  119. 1280  (null)NKJMP
  120. 1290 ;
  121. 1300 KEY PEEK$C5
  122. 1310  TAN#64
  123. 1320  (null)KEY1
  124. 1330  PCLOSEFFLAG,0
  125. 1340 NKJMP (null)NOKEY
  126. 1350 ;
  127. 1360 KEY1 MID$#%00000100
  128. 1370  (null)$028D
  129. 1380  (null)FKEY
  130. 1390 ;
  131. 1400 ;
  132. 1410 CKEY (null)
  133. 1420  LEN#6
  134. 1430  STR$KEYTAB,Y
  135. 1440  (null)CKEY2
  136. 1450  (null)
  137. 1460  (null)*-6
  138. 1470  (null)GFKEY
  139. 1480 CKEY2 MID$JUMPTAB2,Y
  140. 1490  (null)
  141. 1500  MID$JUMPTAB1,Y
  142. 1510  (null)
  143. 1520  (null)
  144. 1530 ;
  145. 1540 DOWNJUMP (null)DOWN
  146. 1550 UPJUMP (null)UP
  147. 1560 ;
  148. 1570 FKEY TAN#4;F1
  149. 1580  (null)UPJUMP
  150. 1590  TAN#3;F7
  151. 1600  (null)DOWNJUMP
  152. 1610  TAN#6;F5
  153. 1620  (null)MNETAB
  154. 1630  TAN#5;F3
  155. 1640  (null)NKJMP
  156. 1650 ;
  157. 1660 ;
  158. 1670 ; TABULATOR
  159. 1680 ;===============================
  160. 1690 ;
  161. 1700 LATAB (null)CHARNORM
  162. 1710  LEN#$05
  163. 1720  (null)$E50E
  164. 1730  (null)MNETAB2
  165. 1740 ;
  166. 1750 MNETAB (null)CHARNORM
  167. 1760  MID$$033E
  168. 1770  (null)
  169. 1780  VAL#$05
  170. 1790  (null)
  171. 1800  (null)$E50E
  172. 1810 MNETAB2 (null)ENDIRQ
  173. 1820 ;
  174. 1830 ;
  175. 1840 ;
  176. 1850 ; CURSOR HOME / 25TH POS
  177. 1860 ;================================
  178. 1870 ;
  179. 1880 HOME (null)CHARNORM
  180. 1890  (null)$E566
  181. 1900 HOME2 (null)NOKEY
  182. 1910 ;
  183. 1920 THPOS (null)CHARNORM
  184. 1930  PEEK#24
  185. 1940  LEN#0
  186. 1950  (null)$E50C
  187. 1960  (null)HOME2
  188. 1970 ;
  189. 1980 ;
  190. 1990 ; SCREEN-EDIT (R,S,L,C)
  191. 2000 ;===============================
  192. 2010 ;
  193. 2020 SAVE
  194. 2030  (null)GETNUMBER
  195. 2040  MID$$14
  196. 2050  (null)SAVEAD
  197. 2060  MID$$15
  198. 2070  (null)SAVEAD+1
  199. 2080  (null)$E513
  200. 2090  (null)XYPOS
  201. 2100  (null)XYPOS+1
  202. 2110  (null)ENDIRQ
  203. 2120 ;
  204. 2130 ;
  205. 2140 LOAD (null)CHECKOLD
  206. 2150  (null)LEND
  207. 2160  (null)
  208. 2170  (null)LOAD2
  209. 2180 LEND (null)ENDIRQ
  210. 2190 ;
  211. 2200 ;
  212. 2210 ALOAD (null)
  213. 2220  MID$#$FF
  214. 2230  LEN#1
  215. 2240  (null)&$2B,Y
  216. 2250  (null)$A533
  217. 2260  PEEK$23
  218. 2270  MID$$22
  219. 2280  (null)
  220. 2290  VAL#2
  221. 2300  (null)*+3
  222. 2310  (null)
  223. 2320  (null)$2D
  224. 2330  (null)$2E
  225. 2340  (null)$A660
  226. 2350  (null)
  227. 2360  (null)LOAD2
  228. 2370  PCLOSE$CF,0
  229. 2380  (null)
  230. 2390  (null)$A47B
  231. 2400 ;
  232. 2410 ;
  233. 2420 REBULID
  234. 2430  (null)CHECKOLD
  235. 2440  (null)REND
  236. 2450  (null)GETNUMBER
  237. 2460  (null)SAVEPOS
  238. 2470  (null)R2
  239. 2480  (null)LOADPOS
  240. 2490 REND (null)ENDIRQ
  241. 2500 ;
  242. 2510 ;
  243. 2520 SWAP (null)CHECKOLD
  244. 2530  (null)SEND
  245. 2540  (null)GETNUMBER
  246. 2550  MID$$14
  247. 2560  (null)
  248. 2570  MID$$15
  249. 2580  (null)
  250. 2590  MID$$D6
  251. 2600  (null)
  252. 2610  MID$$D3
  253. 2620  (null)
  254. 2630  (null)
  255. 2640  (null)LOAD2
  256. 2650  (null)
  257. 2660  (null)XYPOS
  258. 2670  (null)
  259. 2680  (null)XYPOS+1
  260. 2690  (null)
  261. 2700  (null)SAVEAD+1
  262. 2710  (null)
  263. 2720  (null)SAVEAD
  264. 2730 SEND (null)ENDIRQ
  265. 2740 ;
  266. 2750 ; SUBROUTINEN
  267. 2760 ;
  268. 2770 LOAD2 (null)NL
  269. 2780  MID$#$EA
  270. 2790  FN$2C
  271. 2800 NL MID$#$2C
  272. 2810  (null)ANL
  273. 2820  MID$SAVEAD
  274. 2830  (null)$14
  275. 2840  MID$SAVEAD+1
  276. 2850  (null)$15
  277. 2860  (null)R2
  278. 2870  (null)ENDLO
  279. 2880  LENXYPOS
  280. 2890  PEEKXYPOS+1
  281. 2900 ANL FN$2C
  282. 2910  LEN#0
  283. 2920  (null)$E50C
  284. 2930 ENDLO (null)
  285. 2940 ;
  286. 2950 R2 (null)CHARNORM
  287. 2960  PCLOSE$C7,0
  288. 2970  (null)$D4
  289. 2980  (null)$A613;CALC ADDY
  290. 2990  LEN#$01
  291. 3000  MID$($5F),Y
  292. 3010  (null)ENDREB
  293. 3020 R3 MID$#147;CLRSCR
  294. 3030  FN$2C
  295. 3040 RLOOP MID$#13;CR
  296. 3050  (null)$FFD2
  297. 3060  (null)$9A44;'?'-LINE
  298. 3070  (null)SEARCHNEX
  299. 3080  (null)ENDREB-2
  300. 3090  MID$$D6
  301. 3100  STR$#24;LAST L.?
  302. 3110  (null)RLOOP
  303. 3120  (null)
  304. 3130  FN$24
  305. 3140 ENDREB (null)
  306. 3150  (null)
  307. 3160 ;
  308. 3170 ; GET HIGHEST / LOWEST LINES
  309. 3180 ;===============================
  310. 3190 ;
  311. 3200 GET (null)CHARNORM
  312. 3210  (null)CHECKOLD
  313. 3220  (null)ENDGET
  314. 3230  (null)SAVEPOS
  315. 3240  MID$$2B
  316. 3250  (null)$5F
  317. 3260  MID$$2C
  318. 3270  (null)$60
  319. 3280  (null)CL25TH
  320. 3290  (null)
  321. 3300  (null)PRINTLINE
  322. 3310  PEEK$2E
  323. 3320  MID$$2D
  324. 3330  (null)
  325. 3340  (null)#$02
  326. 3350  (null)*+3
  327. 3360  (null)
  328. 3370  (null)$60
  329. 3380  (null)$5F
  330. 3390  (null)SEARCHBAC
  331. 3400  (null)CL1ST
  332. 3410  (null)
  333. 3420  (null)PRINTLINE
  334. 3430  (null)LOADPOS
  335. 3440 ENDGET (null)ENDIRQ
  336. 3450 ;
  337. 3460 ;
  338. 3470 ;
  339. 3480 ; SCROLLEN - HOCHWAERTS
  340. 3490 ;===============================
  341. 3500 ;
  342. 3510 UP
  343. 3520  (null)GETNUMBER
  344. 3530  (null)$A613;LINE>ADDY
  345. 3540  (null)SAVEPOS
  346. 3550 ;
  347. 3560 UP1 MID$$5F;CHECK
  348. 3570  STR$$2B;LAST
  349. 3580  (null)UP2;LINE
  350. 3590  MID$$60
  351. 3600  STR$$2C
  352. 3610  (null)UP2
  353. 3620  (null)UDEND
  354. 3630 ;
  355. 3640 UP2 (null)SEARCHBAC
  356. 3650 SCROLLU PEEK#$FF;SCROLL
  357. 3660 U1 MID$$06C0,X
  358. 3670  (null)$06E8,X
  359. 3680  (null)
  360. 3690  (null)U1
  361. 3700  MID$$06C0
  362. 3710  (null)$06E8
  363. 3720  (null)
  364. 3730 U2 MID$$05C0,X
  365. 3740  (null)$05E8,X
  366. 3750  (null)
  367. 3760  (null)U2
  368. 3770  MID$$05C0
  369. 3780  (null)$05E8
  370. 3790  (null)
  371. 3800 U3 MID$$04C0,X
  372. 3810  (null)$04E8,X
  373. 3820  (null)
  374. 3830  (null)U3
  375. 3840  MID$$04C0
  376. 3850  (null)$04E8
  377. 3860  PEEK#$C0
  378. 3870 U4 MID$$03FF,X
  379. 3880  (null)$0427,X
  380. 3890  (null)
  381. 3900  (null)U4
  382. 3910  (null)CL1ST
  383. 3920  PEEK#$17
  384. 3930 COPY1 MID$$DA,X
  385. 3940  ASC#$7F
  386. 3950  LEN$D9,X
  387. 3960  (null)*+4
  388. 3970  (null)#$80
  389. 3980  (null)$DA,X
  390. 3990  (null)
  391. 4000  (null)COPY1
  392. 4010  MID$$D9
  393. 4020  (null)#$80
  394. 4030  (null)$D9
  395. 4040 ;
  396. 4050  PCLOSE$D4,0
  397. 4060  (null)
  398. 4070  (null)PRINTLINE
  399. 4080 ;
  400. 4090  PCLOSE$DC00,$FE
  401. 4100  MID$#%00010000
  402. 4110  (null)$DC01
  403. 4120  (null)UP3
  404. 4130  (null)UP1;AGAIN
  405. 4140 UP3 (null)UDEND
  406. 4150 ;
  407. 4160 ;
  408. 4170 ;
  409. 4180 ; SCROLLEN - RUNTERWAERTS
  410. 4190 ;===============================
  411. 4200 ;
  412. 4210 ;
  413. 4220 DOWN
  414. 4230  (null)SAVEPOS
  415. 4240  (null)CHECKOLD
  416. 4250  (null)DOWN3
  417. 4260  PEEK#$C0
  418. 4270  LEN#$07
  419. 4280  (null)GETNUMBER+4
  420. 4290  (null)$A613;LINE>ADDY
  421. 4300  LEN#$01
  422. 4310  MID$($5F),Y
  423. 4320  (null)DOWN3
  424. 4330 ;
  425. 4340 DOWN2 (null)SEARCHNEX
  426. 4350  (null)SCROLLD
  427. 4360 DOWN3 (null)UDEND
  428. 4370 ;
  429. 4380 SCROLLD PEEK#0;SCROLL
  430. 4390 D1 MID$$0428,X
  431. 4400  (null)$0400,X
  432. 4410  (null)
  433. 4420  (null)D1
  434. 4430 D2 MID$$0528,X
  435. 4440  (null)$0500,X
  436. 4450  (null)
  437. 4460  (null)D2
  438. 4470 D3 MID$$0628,X
  439. 4480  (null)$0600,X
  440. 4490  (null)
  441. 4500  (null)D3
  442. 4510  PEEK#$40
  443. 4520 D4 MID$$06E8,X
  444. 4530  (null)$06C0,X
  445. 4540  (null)
  446. 4550  (null)D4
  447. 4560  (null)CL25TH
  448. 4570  PEEK#$00
  449. 4580 COPY2 MID$$D9,X
  450. 4590  ASC#$7F
  451. 4600  LEN$DA,X
  452. 4610  (null)*+4
  453. 4620  (null)#$80
  454. 4630  (null)$D9,X
  455. 4640  (null)
  456. 4650  TAN#$18
  457. 4660  (null)COPY2
  458. 4670  MID$$F1
  459. 4680  (null)#$80
  460. 4690  (null)$F1
  461. 4700 ;
  462. 4710  PCLOSE$D4,0
  463. 4720  (null)
  464. 4730  (null)PRINTLINE
  465. 4740 ;
  466. 4750  PCLOSE$DC00,$FE
  467. 4760  MID$#%00001000
  468. 4770  (null)$DC01
  469. 4780  (null)UDEND
  470. 4790  (null)DOWN2;AGAIN
  471. 4800 ;
  472. 4810 UDEND (null)LOADPOS
  473. 4820 ;
  474. 4830 ;
  475. 4840 ENDIRQ PCLOSE$C6,0
  476. 4850  (null)$D4
  477. 4860 NOKEY (null)
  478. 4870  PCLOSE$DC0D,$81
  479. 4880  (null)$EA81
  480. 4890 ;
  481. 4900 ;
  482. 4910 ;
  483. 4920 ; GET NUMBER
  484. 4930 ;==============================
  485. 4940 ;
  486. 4950 GETNUMBER PEEK#$00
  487. 4960  LEN#$04
  488. 4970  (null)$7A
  489. 4980  (null)$7B
  490. 4990  (null)CHARNORM
  491. 5000  PCLOSE$0300,<(ERROR)
  492. 5010  PCLOSE$0301,>(ERROR)
  493. 5020  (null)
  494. 5030  (null)ERROR+1
  495. 5040 ;
  496. 5050  (null)$AD8A
  497. 5060  (null)$B7F7
  498. 5070 ;
  499. 5080 ERRON PCLOSE$0300,$44
  500. 5090  PCLOSE$0301,$85
  501. 5100  (null)
  502. 5110 ;
  503. 5120 ERROR PEEK#$F3
  504. 5130  (null)
  505. 5140  (null)
  506. 5150  (null)
  507. 5160  (null)ERRON
  508. 5170  (null)ENDIRQ
  509. 5180 ;
  510. 5190 ;
  511. 5200 ;
  512. 5210 ; LINE-PRINT (C=1 / P=24)
  513. 5220 ;===============================
  514. 5230 ;
  515. 5240 SAVEPOS (null)$E513
  516. 5250  (null)LOADPOS+1
  517. 5260  (null)LOADPOS+3
  518. 5270  (null)
  519. 5280 ;
  520. 5290 PRINTLINE LEN#$00
  521. 5300  (null)*+5
  522. 5310  PEEK#$00
  523. 5320  FN$2C
  524. 5330  PEEK#24
  525. 5340  (null)$E50C
  526. 5350  (null)$9A44
  527. 5360 ;
  528. 5370 LOADPOS LEN#$00
  529. 5380  PEEK#$00
  530. 5390  (null)$E50C
  531. 5400 ;
  532. 5410 ;
  533. 5420 ;
  534. 5430 ; SEARCH PREV. / NEXT LINE
  535. 5440 ;===============================
  536. 5450 ;
  537. 5460 SEARCHBAC MID$$60;SEARCH
  538. 5470  (null)LASTHIGH;PREVIOUS
  539. 5480  CHR$$60;LINE
  540. 5490  LEN#$FE
  541. 5500 SEARCH MID$($5F),Y
  542. 5510  (null)FOUND
  543. 5520 SEARCH2 (null)
  544. 5530  (null)SEARCH
  545. 5540 ;
  546. 5550 FOUND (null)
  547. 5560  MID$($5F),Y
  548. 5570  STR$$5F
  549. 5580  (null)FOUND2
  550. 5590  (null)
  551. 5600  (null)SEARCH2
  552. 5610 ;
  553. 5620 FOUND2 (null)
  554. 5630  MID$($5F),Y
  555. 5640  STR$LASTHIGH
  556. 5650  (null)FOUND3
  557. 5660  (null)
  558. 5670  (null)
  559. 5680  (null)SEARCH2
  560. 5690 ;
  561. 5700 FOUND3 (null)
  562. 5710  (null)
  563. 5720  (null)
  564. 5730  VAL$5F
  565. 5740  (null)*+4
  566. 5750  RIGHT$$60
  567. 5760  (null)$5F
  568. 5770  (null)
  569. 5780 ;
  570. 5790 ;
  571. 5800 SEARCHNEX LEN#$00;SEARCH
  572. 5810  MID$($5F),Y;NEXT
  573. 5820  (null);LINE
  574. 5830  (null)
  575. 5840  MID$($5F),Y
  576. 5850  (null)$5F
  577. 5860  (null)$60
  578. 5870  MID$($5F),Y
  579. 5880  (null)
  580. 5890 ;                   CLOSE
  581. 5900 ;                   CLOSE
  582. 5910 ;
  583. 5920 ; VERSCHIEDENE UNTERPROGRAMME
  584. 5930 ;===============================
  585. 5940 ;
  586. 5950 CL25TH MID$#32;CLEAR
  587. 5960  PEEK#$27;25TH
  588. 5970  (null)$07C0,X;LINE
  589. 5980  (null)
  590. 5990  (null)*-4
  591. 6000  (null)
  592. 6010 ;
  593. 6020 CL1ST MID$#32;CLEAR
  594. 6030  PEEK#$27;1ST
  595. 6040  (null)$0400,X;LINE
  596. 6050  (null)
  597. 6060  (null)*-4
  598. 6070 CLRTS (null)
  599. 6080 ;
  600. 6090 ;
  601. 6100 ;
  602. 6110 CHARNORM MID$$CF;CHAR IN
  603. 6120  (null)CLRTS;NORMAL-
  604. 6130  MID$$CE;ZUSTAND
  605. 6140  PEEK$0287
  606. 6150  LEN#$00
  607. 6160  (null)$CF
  608. 6170  (null)$EA13
  609. 6180 ;
  610. 6190 ;
  611. 6200 ;
  612. 6210 GFKEY TAN#$03; F-KEY
  613. 6220  (null)GFEND; CHECK
  614. 6230  TAN#$07
  615. 6240  (null)GFEND
  616. 6250  LENFFLAG
  617. 6260  (null)GFEND
  618. 6270  (null)
  619. 6280  (null)
  620. 6290  (null)
  621. 6300  MID$#1
  622. 6310  (null)$028D;SHIFT
  623. 6320  (null)*+7
  624. 6330  MID$FTAB+4,X;MIT
  625. 6340  (null)*+5
  626. 6350  MID$FTAB,X;OHNE
  627. 6360  (null)$0277
  628. 6370  MID$#13
  629. 6380  (null)$0277+1
  630. 6390  PEEK#$02
  631. 6400  (null)$C6
  632. 6410  (null)FFLAG
  633. 6420 GFEND (null)NOKEY
  634. 6430 ;
  635. 6440 ;
  636. 6450 ;
  637. 6460 CHECKOLD MID$$2C
  638. 6470  STR$$2E
  639. 6480  (null)*+9
  640. 6490  MID$$2D
  641. 6500  (null)
  642. 6510  (null)$2B
  643. 6520  STR$#$02
  644. 6530  (null)
  645. 6540 ;
  646. 6550 ;
  647. 6560 ;
  648. 6570 SET4 MID$#0; $94D3
  649. 6580  (null)IRQFLAG;+$971D
  650. 6590  (null)$A560
  651. 6600  MID$#1
  652. 6610  (null)IRQFLAG
  653. 6620  (null)
  654. 6630 SETPGE PEEK#$00
  655. 6640  (null)$0340
  656. 6650  (null)$0350
  657. 6660  (null)
  658. 6670  (null)$0360
  659. 6680  (null)$0370
  660. 6690  (null)$8537
  661. 6700 ACHECK LEN$033D
  662. 6710  (null)*+5
  663. 6720  RIGHT$$033D
  664. 6730  LEN$033B
  665. 6740  (null)
  666. 6750  (null)$02FE
  667. 6760  (null)$974F
  668. 6770 ;
  669. 6780 ;
  670. 6790 ;
  671. 6800 ; POSITIONSSPEICHER, TEXT ....
  672. 6810 ;================================
  673. 6820 ;
  674. 6830 FFLAG
  675. 6840 FN0
  676. 6850 ;
  677. 6860 IRQFLAG
  678. 6870 FN0
  679. 6880 ;
  680. 6890 SAVEAD
  681. 6900 SPC(0
  682. 6910 XYPOS
  683. 6920 SPC(0
  684. 6930 ;
  685. 6940 FTAB
  686. 6950 NOT"IEXL
  687. 6960 [168]"@BYO
  688. 6970 ;
  689. 6980 TEXT
  690. 6990 NOT"__* GIGA-SCROLLEDIT V2_
  691. 7000 [168]"* BY CHRISTIAN THRUM
  692. 7010 NOT" 1993_"
  693. 7020 ;
  694. 7030 JUMPTAB1
  695. 7040 FN<(SAVE-1),<(LOAD-1)
  696. 7050 FN<(REBULID-1),<(GET-1)
  697. 7060 FN<(THPOS-1),<(HOME-1)
  698. 7070 FN<(SWAP-1)
  699. 7080 ;
  700. 7090 JUMPTAB2
  701. 7100 FN>(SAVE-1),>(LOAD-1)
  702. 7110 FN>(REBULID-1),>(GET-1)
  703. 7120 FN>(THPOS-1),>(HOME-1)
  704. 7130 FN>(SWAP-1)
  705. 7140 KEYTAB
  706. 7150 FN13,42,17,26,7,2,20
  707. 7160 ;
  708. 7170 ;
  709. 7180 ; ===============================
  710. 7190 ;
  711. 7200 ; YO! THIS IS THE WAY WE GO ....
  712. 7210 ;
  713. 7220 ;       GIGA-SCROLLEDIT V2
  714. 7230 ;    CODED BY CHRISTIAN THRUM
  715. 7240 ;    (SKYWALKER OF SUNBEAM !)
  716. 7250 ;              CLOSE
  717. 7260 ;              CLOSE
  718. 7270 ;              CLOSE
  719. 7280 ; ORTANTAN^
  720. 7290 ; (null)ORTANEXP
  721. 7300 ; (null)/TAN^
  722. 7310 ; /TAN^(null)UNBEAM PRODUCTIONS 1993
  723. 7320 ; ORTANEXP(null)
  724. 7330 ; /TANTANEXP
  725. 7340 ;
  726.